kaynak=
http://www.ipucu.web.tr/aspipucu.php

IP adresi kontrol ve blok etme

Bazı durumlarda sayfamıza bazı ip adreslereinden gelen kullanıcıların erişmesini istemeyiz. Bu gibi durumlarda ip adresleri kontrol edilip işlemler yapılmaktadır.

<% ' *** IP adresini kontrol eden fonksiyon Function ipkontrolet(ipadres, bloklu) ipkontrolet = 0 blokluipsayisi = 4 for i=0 to blokluipsayisi-1 if bloklu(i) = ipadres then ipkontrolet = 1 end if Next End Function Dim gelenip ' *** Kullanıcının IP adresi tutuluyor. Dim blokluip(4) '** istenmeyen IP ler tutuluyor. ' *** Bloklanacak olan ip değerlerin giriliyor blokluip(0)="192.128.1.1" blokluip(1)="66.255.255.255" blokluip(2)="226.0.0.1" blokluip(3)="102.10.1.1" ' *** Kullanıcını ip adresi bulunuyor. gelenip=Request.ServerVariables("REMOTE_ADDR") if ipkontrolet (gelenip,blokluip) then ' ** Bloklu bir ip geldi. Yönlendirme yapılıyor. Response.Redirect("index2.asp") end if ' *** IP adresinde bir problem yoksa diğer işlemler yapılıyor.. ...... ...... ...... %>

IP kontrol etmek için ilk olarak kullanıcının IP adresini Request.ServerVariables("REMOTE_ADDR") metodu ile alıp istenmeyen IP numaraları ile karşılaştırıp sonucuna bakarak işlem yapılması gerekmektedir. İyi Çalışmalar

MySQL Veritabanına Bağlantı

ASP ile MySQL veritabanına bağlanarak, buradaki tabloları kullanmak mümkür. Örnek kodda bağlantının nasıl yapılacağı gösterilmiştir.

<% ' *** MySQL ile bağlantı yapılıyor. MySQL ODBC driver bağlantısının ismi = mysql 'dir. set con=server.CreateObject("ADODB.Connection") con.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mysql" ' *** Veriseti tanımlanıyor. set rsveriseti=server.CreateObject("ADODB.Recordset") sqlstr="select * from mysqltablosu" ' ** SQL ifadesi ile veriseti oluşturuluyor. rsveriseti.open sqlstr, con %>

Yukarıdaki kodu çalıştırmadan önce bilgisayarınızda MySQL ODBC Driver'ın kurulu olması gerekmektedir. MySQL ODBC Driver kurulduktan sonra Denetim Masası -- Yönetimsel Araçlar -- Veri Kaynakları --- Sistem DSN bölümüne MySQL ODBC Driverolarak ilgili MySQL veritabanının eklenmesi gerekmektedir. Örnek kodda yapılan bağlanyının ismi mysql'dir.

MySQL veritabanından alınan bilgilerin Access veritabanına aktarılması

MySQL veritabanından istenilen bilgilerin seçilerek, access veritabanına atılmasını sağlayan örnek bir kod.

<% ' MySQL baglantisi yapılıyor set con=server.CreateObject("ADODB.Connection") con.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mysql" set rs=server.CreateObject("ADODB.Recordset") sqlstr="SELECT * FROM veritabanı_tablo_adi" rs.open sqlstr, con ' Access Baglantısı yapılıyor. Set veritabani = Server.CreateObject("ADODB.Connection") veritabani.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vt.mdb") while not rs.eof SQL="insert into vt_tablo_adi (alan1_adi, alan2_adi) values ("&rs(0)&","&rs(1)&")" veritabani.Execute (SQL) rs.movenext wend Response.Write("Bitti") %>

Yukarıdaki kodu çalıştırmadan önce bilgisayarınızda MySQL ODBC Driver'ın kurulu olması gerekmektedir. MySQL ODBC Driver kurulduktan sonra Denetim Masası -- Yönetimsel Araçlar -- Veri Kaynakları --- Sistem DSN bölümüne MySQL ODBC Driver olarak ilgili MySQL veritabanının eklenmesi gerekmektedir. Örnek kodda yapılan bağlantının ismi mysql'dir. Kodda bulunan DataSource=mysql bölümünde belirtilmiştir. Sizde kendi bağlantınızın ismini bu bölüme yazabilirsiniz. MySQL veritabanından çekilen kayıtlar rs verisetine atılmakta ve bu veriseti daha soonra bir while döngüsüyle Access veritabanına atılmaktadır. İyi çalışmalar.

Tablo oluşturmak

ASP kodları ile mevcut bir microsoft acces veritabanına tablolar eklenebilmektedir. Tablo eklemek için SQL komutları kullanılmaktadır.

<% ' *** Bağlantı yapılıyor.. Set veriyolu = server.CreateObject("ADODB.Connection") veriyolu.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("vt.mdb") ' *** SQL komutları ile yeni bir tablo oluşturuluyor. veriyolu.execute("create table tablo1adi(alan1 text(20), alan2 numeric)") ' *** Alan tanımlama çeşitleri ' ** AutoIncrement --> Otomatik sayı ' ** MEMO --> Not ' ** TEXT --> Metin ' ** NUMERİC --> Sayı ' ** BIT --> Evet / Hayır ' ** DATE/TIME --> Tarih/Saat ' *** Bağlantı sonlandırılıyor. veriyolu.close set veriyolu=nothing Response.Write ("Tablo oluşturuldu") %>

Eğer yetki problemi ile karşılaşılacak olursa tablo yaratılacak olan veritabanı üzerinde IIS'in yazma yetkisinin olması gerekmektedir. İyi Çalışmalar

Acces Veritabanı Oluşturmak

ASP kodları ile bir microsoft acces veritabanı oluşturmak mümkündür. Bir .mdb dosyası oluşturmak için Server.CreateObject metodu kullanılmaktadır.

<% Function vtolustur(vtAd) On Error Resume Next Set oCatalog = Server.CreateObject("ADOX.Catalog") oCatalog.Create"provider=microsoft.jet.oledb.4.0;data source="&server.MapPath(vtAd) vtolustur = Err.Number = 0 End Function if vtolustur("veritabaniAdi.mdb") then Response.Write("Access Dosyası Oluşturuldu.") end if %>

Bu kod ile istenilen access veritabanları yaratılabilmektedir. Eğer hata ile karşılaşılıyorsa IIS'in yazma yetkisinin klasör oluşturulacak dizinde verilmiş olması gerekmektedir.

Recordset başlıkları ve alan sayısının bulunması

Veritabanından çekilen kayıtların alan ismlerini ve kayıtları yazdırmak için kullanabileceğiniz güzel bir kod örneği

<% Dim VT,VeriSeti,SQL Set VT = Server.CreateObject("ADODB.Connection") VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("deneme.mdb")) SQL="SELECT * From tablo1" Set VeriSeti=VT.Execute(SQL) for i=0 to recordset.fields.count Response.Write recordset.fields(i).name&"," next Response.Write "<BR>" while not VeriSeti.EOF for i=0 to recordset.fields.count Response.Write recordset.fields(i).value&"," next VeriSeti.MoveNext Response.Write "<BR>" wend %>

recordset.fields.count : verisetinde kaç kolon olduğunu; recordset.fields(i).name : verisetinin alan isimlerini vermektedir. İyi çalışmalar

Yeni Klasör Oluşturma

Asp kodları ile yeni bir klasör oluşturulmasını sağlar.

<% Dim Dosya,asp Set Dosya=CreateObject("Scripting.FileSystemObject") Set asp=Dosya.CreateFolder("d:Denemeasp") Set asp=Nothing Set Dosya=Nothing %>

Yeni klasör oluşturulacağı zaman kullanılıyor. Yalnız bu işlemin yapılabilmesi için IIS (Internet Information Server)'in yazma yetkisinin olması gerekmektedir.

Karakter işlemleri

Metinlerle çok fazla uğraşmak gerekiyorsa karakter işlemlerinin gayet iyi bilinmesi gerekmektedir. Sizin için hazırladığımız bazı karakter işlemlerini sunuyoruz.

<% ' --- InStr : Bir string içerisinde verilen stringi arar. Eğer bulunursa sonuç ilk başlangıcının kaçıncı karakter olduğudur. Str1="ipucu istekleriniz için bize mesaj atabilirsiniz" Yer=InStr(Str1,"istek") ' -- Yer değişkeninin değeri 7 olur. '--- Len : Stringin uzunluğunu verir. Uzunluk=Len(Str1) ' -- Sonuc=48 'dir '--- Ucase, Lcase : Sırası ile stringin tüm karakterlerini büyük ve küçük harfe çevirir. Ucase(Str1) '--- LTrim, RTrim,Trim : Stringin sırasıyla solundaki,sağındaki ve her iki tarafındaki boşlukları temizler Trim(Şifre) '--- Space : Verilen sayı kadar boşluk olan bir string oluşturur. Bosluk=Space(20) '--- String : İstenilen sayıda ve istenilen karakterde bir string oluşturur. String(3,"*") '--Sonuç.."***" '--- Left, Right : Stringin içerisindeki sol veya sağ tarafındaki karakterleri verir. Left(Str1,5) '-- Sonuç... "ipucu" '--- Mid : Başlangıç noktası ve uzunluğu verilen değerlere göre bir String oluşturur. Mid(Str1,7,5) '--Sonuc.."istek" 7. karakterden başla 5 karakter git. %>

Bütün karakter işlemleri saydıklarımız ile sınırlı değildir. Başka istekleriniz olursa bize ulaşmanız yeterlidir.

Text Dosya (text file) Oluşturma

Asp kodları ile yeni bir textfile oluşturulmasını sağlar.

<% Dim Dosya,txtfile Set Dosya=CreateObject("Scripting.FileSystemObject") Set txtfile=Dosya.CreateTextFile("d:MehmetWebDenemetextDosyasi.txt") Set txtfile=Nothing Set Dosya=Nothing %>

Yeni textfile oluşturulacağı zaman kullanılıyor. Yalnız bu işlemin yapılabilmesi için IIS (Internet Information Server)'in yazma yetkisinin olması gerekmektedir.

Kullanıcının ip adresinin alınması

Bazı durumlarda sayfamıza bağlanan kişilerin ip adreslerini saklamamız gerekebilir. Bu gibi durumlarda sayfaya bağlalan kişilerin ip adreslerinin alınmasını sağlayan ASP kodu.

<% Response.Write("ip adresiniz :"&Request.ServerVariables("remote_addr")) %>

Kodların <BODY></BODY> tagları arasına yerleştirilmesi yeterlidir.

Veritabanından veri alınıp açılır menüde (combobox) listelenmesi.

Veritabanı ile uğraşanların en çok karşılaştıkları sorunlardan birisi de veritabanından verilerin çekilip combobox'ta listelenmesidir.

<% Dim VT,VeriSeti,SQL Set VT = Server.CreateObject("ADODB.Connection") VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("web.mdb")) SQL="SELECT * FROM webtablosu" Set VeriSeti = VT.Execute(SQL) if VeriSeti.EOF then Response.Write ("Sorgu sonucu bulunmamaktadır. ") else %> <FORM ACTION="tıklanınca_gidilecek_sayfa" Method="Post"> <SELECT Name="degersecin" <% do while not VeriSeti.EOF %> <OPTION Value="<%=Veriseti("Tablo_Alan_Adi")%>"><%=Veriseti("Tablo_Alan_Adi")%></OPTION> <% VeriSeti.MoveNext loop %> </SELECT> <INPUT Type="submit" value="gönder"> </FORM><% end if %>

Kodu <BODY></BODY> tagları arasına yerleştiriniz. Combobox'ta verilerin listelenmesi en fazla FORM içerisinde kullanıldığı için örnek olarak da FORM verilmiştir. Eğer sadece listeleme bölümünü kullanmak isterseniz <SELECT></SELECT> blokları arası yeterli olacaktır

Response.Flush (hemen gönder)

Buffer metodu sayfanın tümünün Script’in icrası bitmeden gönderilmesini önlerken, Flush bunun tam tersini yapar. Sunucu ASP sayfası içindeki satırlarda bu ifadeye rastlarsa, o zamana kadar buffer'da sakladığı sayfa değerlerini, browsera gönderir.

<% Response.Flush %>

ASP, Response nesnesinin Flush metodu kullanıldığını gördüğü anda, o zamana kadar icra edilmiş kodların sonucu olan HTML’i Browser’a gönderir. Kullanıcı tarafındakiler farklılık gözlemleyemezler, süreçler çok hızlı gerçekleştiği için, normal sayfa yükleniyormuş gibi gelebilir. Bu farkı ancak sunucu tarafında çok karmaşık kodlar ile çalışanlar anlayabilir.

Response.Clear (Boşalt)

Buffer metodu ile kodun sonunu beklerken işlemleri bufferda tutarken, Clear metodu ile buffer (tampon bölge) temizlenir ve yok edilir.

<% Response.Clear %>

Ziyaretçinin örneğin elektronik alışveriş sitelerinde alışverişten vazgeçtiğini belirtmesi üzerine tampon bölgede tutulmakta olan ve alınan mallar listesini içeren HTML bu yöntemle temizlenir

Listbox ta seçili alanın alt alanlarının başka bir listbox'ta görüntülenmesi

Listbox da veritabanından alınan veriler listelenmektedir. Buradan birisi seçildiğinde alttaki listbox da onun alt alanları listelenmektedir.

<%@ LANGUAGE="VBSCRIPT" %> <HTML> <HEAD> <SCRIPT LANGUAGE="JavaScript"> function formHandler(form){ var URL = document.form.site.options[document.form.site.selectedIndex].value; window.location.href = URL; } </SCRIPT> <TITLE>İlçe Listeleme</TITLE> <META http-equiv="content-type" content="text/html; charset=ISO-8859-9"> <META http-equiv="Content-Type" content="text/html; charset=windows-1254"> </HEAD> <BODY bgcolor=#66CCFF> <CENTER> <% '----------- sayfadan gelen parametreler alınıyor. ilkodu=Request.Form("il_kodu") ilkodu2=Request.QueryString("il_kodu2") if ilkodu2 <> "" then ilkodu=ilkodu2 end if '------------ veri tabanı bağlantısı yapılıyor. Set VT = Server.CreateObject("ADODB.Connection") VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("il_ilce.mdb")) %> <form name="form"> <b><font size="4">İl Seçiniz : </font></b> <select name="site" size=1 onChange="javascript:formHandler()"> <% '-------il adı bulunuyor. if ilkodu <> "" then SQL= "SELECT YERADI, YERKODU FROM iller WHERE YERKODU <>"&ilkodu&"" '-------illerin listelenmesi için Set SeciliilSeti=VT.Execute(SQL) il_adi=SeciliilSeti("YERADI") Response.Write "<OPTION Value=ilcelistele.asp?il_kodu2="&ilkodu&">"&il_adi&"" else SQL= "SELECT YERADI, YERKODU FROM iller" '-------illerin listelenmesi için end if Set ilVeriSeti=VT.Execute(SQL) ' ---- 0--YERADI 1---YERKODU Do While Not ilVeriSeti.eof Response.Write "<OPTION Value=ilcelistele.asp?il_kodu2="&ilVeriSeti(1)&">"&ilVeriSeti(0)&"" ilVeriSeti.movenext loop %> </select> </form> <% '------------- Seçilen ilin ilçelerinin listelenmesi if ilkodu <> "" then SQL2="SELECT YERADI,YERKODU FROM ilceler WHERE il_id="&ilkodu&" ORDER BY YERADI" Set ilceVeriSeti=VT.Execute(SQL2) %> <FORM ACTION="ilcelistele.asp?il_kodu2=<%=ilkodu%>" METHOD="post"></H2> <p align="center"> <b><font size="4">İlçe Seçiniz : </font></b> <SELECT NAME="ilce_kodu"> <OPTION Value="">İlçe seçiniz</Option> "<% Do While Not ilceVeriSeti.eof Response.Write "<OPTION Value='"&ilceVeriSeti(1)&"'>"&ilceVeriSeti(0)&"" Response.Write "</Option>" ilceVeriSeti.movenext loop ilceVeriSeti.MoveFirst %> </select> </SELECT> <input type="submit" value="işlem yap" style="font-weight: bold; color:#0000FF"> </FORM> <% end if VT.Close Set VT=Nothing %> </CENTER> </BODY> </HTML>

Örnek olması açısından burada bir il seçilmekte ve o ilin ilçeleri listelenmektedir. Verilerin bir mdb dosyasında geldiği varsayılmakta ve iller ve ilceler olmak üzere iki tablonun olduğu düşünülmektedir. İlceler tabnlosunda ise bağlı olduğu ilin id'sinin olması yeterlidir. İyi çalışmalar

Tesadüfi (random) sayı üretmek

Tesadüfi - rastlantısal sayı, bir dizide tekrar etmesi belirli bir düzene tabi olmayan sayı demektir. ASP'de bu amaçla Randomize ve Rnd komutları kullanılmaktadır.

<% Dim Rastgelesayi Randomize Rastgelesayi = Rnd Response.Write Rastgelesayi %>

Randomize, tesadüfî sayı üretme sürecini başlamaktadır, Rnd ise bu sayıyı vermektedir. Herhangi bir yerde Rnd komutu kullanılması gerekiyorsa, ondan önce mutlaka Randomize komutunun yer alması gerekmektedir. Rastgele sayı daima 0 ile 1 arasında olur. Daha yüksek sayıların gelmesi isteniyorsa üretinle sayının istenilen değerle çarpılması gerekmektedir.